<!--#include file="CheckSession.asp"-->
<!--#include file="../inc/PublicFun.Asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
    <META HTTP-EQUIV="Pragma" CONTENT="no-cache">
    <META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
    <META HTTP-EQUIV="Expires" CONTENT="0">
    <title>��̨����</title>
    <link href="css/style.css" rel="stylesheet" type="text/css"/>
    <meta http-equiv="refresh" content="5;URL=Admin_BookList1.Asp">
    <% If session("v") = "1" Then %>
    <bgsound src="img/msg.wav" loop="1" bgsound/>
    <% End If %>
</head>
<body>
<%
On Error Resume next
	strAction = request("action")
	strNewsId = request("Id")
	strPage = request("page")
	If strAction = "d" and strNewsId <> "" Then
		Conn . Execute("Delete * from xy_phone Where Id=" & strNewsId & "")
		Response . Redirect("Admin_BookList1.Asp?page=" & strPage & "")
	End If
If strAction = "Checked" and strNewsId <> "" Then
		Conn . Execute("update  xy_phone Set Checked=1 Where Id=" & strNewsId & "")
		Response . Redirect("Admin_BookList1.Asp?page=" & strPage & "")
	End If
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td height="50" align="center" class="title">�����ʽ�</td>
    </tr>
</table>
<div>&nbsp;</div>
<table width="100%" border="1" cellpadding="5" cellspacing="0" style="border-collapse:collapse">
    <tr>
        <td>
            <table border="1" width="100%" id="table1" bordercolorlight="#000000" cellspacing="0" cellpadding="0"
                   height="100%">
                <tr>
                    <td height="35" width="100" align="center"><b><font color="#0000FF" size="4">���</font></b></td>
                    <td width="160" align="center"><b><font color="#0000FF" size="4">�˺�</font></b></td>
                    <td width="100" align="center"><b><font color="#0000FF" size="4">����</font></b></td>
                    <td width="120" align="center"><b><font color="#0000FF" size="4">���</font></b></td>
                    <td width="180" align="center"><b><font color="#0000FF" size="4">����ʱ��</font></b></td>
                    <td width="180" align="center"><b><font color="#0000FF" size="4">������</font></b></td>
                    <td width="100" align="center"><b><font color="#0000FF" size="4">���</font></b></td>
                    <td width="70" align="center"><b><font color="#0000FF" size="4">ɾ��</font></b></td>
                </tr>
                <%
                Set Rs = Server . CreateObject("Adodb.RecordSet")
	Sql = "Select * from xy_phone Order by id DESC"
	Rs . PageSize = 20
	Rs . Open sql,conn,1,1
	TotalNumber = Rs . RecordCount
	MaxPerPage = Rs . PageSize
	if totalnumber > 0 then
		if not isempty(request("page")) and request("page") <> "" then
			CurrentPage = Cint(request("page"))
		else 
			CurrentPage = 1
			strPage = 1
		end if
                rs . AbsolutePage = CurrentPage

                for i = 1 to rs . PageSize
                if Rs . Eof or rs . Bof then exit for
                If rs("Checked") = 0 Then
			Code = "<a href='?action=Checked&page=" & page & "&id=" & rs("id") & "'><font size='4' color=blue><b>���</b></font></a>"
		Else
		    Code = "<font size='4' color=black><b>�����</b></font>"
		End if
%>

                <tr>
                    <td height="35" align="center"><font size="4"><%= rs("id") %></font></td>
                    <td align="center"><font size="4"><%= rs("loginname") %></font></td>
                    <td align="center"><font size="4"><%= GetAlias(rs("loginname")) %></font></td>
                    <td align="center"><font size="4"><%= rs("amount") %>Ԫ</font></td>
                    <td align="center"><font size="4"><%= rs("times") %></td>
                    <td align="center"><font size="4"><%= rs("m_orderid") %></td>
                    <td align="center"><%= code %></td>
                    <td align="center"><a href="?action=11d&Id=<%= rs("Id") %>&page=<%= strPage %>"><font size="4"
                                                                                                          color=blue><b>ɾ��</b></font></a>
                    </td>
                </tr>
                <%
                Rs . MoveNext
		 Next
  %>
            </table>
        </td>

    </tr>

    <tr>
        <td colspan="2"><% call showpage(totalnumber, maxperpage, CurrentPage, "", "keyword")%></td>
    </tr>
    <%
    Else
    %>
        <tr>
            <td colspan="7" height="30" align="center"><font color=red size=4>������Ϣ</td>
        </tr>
    <%
    Rs.Close()
    Set Rs = Nothing
    End If
    %>
</table>
</body>
</html>
